﻿Public Class CompanyBUS
    Private companydao As New CompanyDAO()
    Public Function Company_Lookup() As DataSet
        Return companydao.Company_Lookup()
    End Function

    Public Function Company_List() As DataSet
        Return companydao.Company_List()
    End Function

    Public Function Company_Delete(ByVal CompanyID As Integer) As Boolean
        Return companydao.Company_Delete(CompanyID)
    End Function

    Public Function Company_Select(ByVal CompanyID As Integer) As DataSet
        Return companydao.Company_Select(CompanyID)
    End Function

    Public Function Company_Insert(ByVal CompanyName As String, _
                                   ByVal Address As String, _
                                   ByVal TelephoneNumber1 As String, _
                                   ByVal TelephoneNumber2 As String, _
                                   ByVal MobilephoneNumber As String, _
                                   ByVal Fax As String, _
                                   ByVal Email As String, _
                                   ByVal Website As String, _
                                   ByVal Notes As String, _
                                   ByVal ActiveInd As Boolean, _
                                   ByVal CreatedBy As String, _
                                   ByVal CreatedOn As Date, _
                                   ByVal ModifiedBy As String, _
                                   ByVal ModifiedOn As Date, _
                                   ByVal TaxNumber As String) As Boolean
        Return companydao.Company_Insert(CompanyName, Address, TelephoneNumber1, TelephoneNumber2, MobilephoneNumber, Fax, Email, Website, Notes, ActiveInd, CreatedBy, CreatedOn, ModifiedBy, ModifiedOn, TaxNumber)
    End Function

    Public Function Company_Update(ByVal CompanyID As Integer, _
                                  ByVal CompanyName As String, _
                                   ByVal Address As String, _
                                   ByVal TelephoneNumber1 As String, _
                                   ByVal TelephoneNumber2 As String, _
                                   ByVal MobilephoneNumber As String, _
                                   ByVal Fax As String, _
                                   ByVal Email As String, _
                                   ByVal Website As String, _
                                   ByVal Notes As String, _
                                   ByVal ActiveInd As Boolean, _
                                   ByVal CreatedBy As String, _
                                   ByVal CreatedOn As Date, _
                                   ByVal ModifiedBy As String, _
                                   ByVal ModifiedOn As Date, _
                                   ByVal TaxNumber As String) As Boolean
        Return companydao.Company_Update(CompanyID, CompanyName, Address, TelephoneNumber1, TelephoneNumber2, MobilephoneNumber, Fax, Email, Website, Notes, ActiveInd, CreatedBy, CreatedOn, ModifiedBy, ModifiedOn, TaxNumber)
    End Function

End Class
